home *** CD-ROM | disk | FTP | other *** search
/ Info-Mac 4 / Info_Mac IV CD-ROM (Pacific HiTech Inc.)(August 1994).iso / Development / General / ViewIt™ 2.24 Shareware / FORTRAN Demo Projects / LS Fortran 3.3 Demos / MinimumLF.f < prev    next >
Text File  |  1993-05-14  |  637b  |  24 lines
  1. C NOTE: Read the "MPW Fortrans" section of "About Compilers"
  2. C before compiling LF programs that use FaceWare modules.
  3.  
  4. C Minimum LF Demonstration Program
  5. C ©FaceWare 1991-93.  All Rights Reserved.
  6.  
  7. !!M Inlines.f
  8. !!I FaceProcLF.inc
  9.  
  10.       PROGRAM MinimumLF
  11.     implicit none
  12. C NOTE: If you use the "!!G" directive for precompiled globals, add
  13. C our FaceStorLF.inc globals to yours and then remove following line
  14.     include 'FaceStorLF.inc'
  15.       record /FaceRec/ fRec
  16.       common/FaceStuff/fRec
  17.  
  18.       fRec.uName = 'Minimum.Rsrc'
  19.       call FaceIt(0,DoInit,0,0,0,0)
  20.       do while (.true.)
  21.         call FaceIt(0,DoLoop,0,0,0,0)
  22.     end do
  23.     end
  24.